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MSX: TECLAS 


PROGRAMÁVEIS 


O MSX oferece um recurso fantástico 
para dar aos programas um acabamento 
profissional: as teclas programáveis. 
Explorando-as bem, você conseguirá 


menus de funções instantâneos na tela.. 


A maioria dos computadores profis- 
sionais, como os cobiçados micros da li- 
nha PC, de dezesseis bits, tem teclados 
imensos, com cem teclas ou mais. Isso 
não só simplifica o acesso a um grande 
número de funções embutidas no siste- 
ma, pela pressão a uma única tecla, co- 


O QUE SÃO TECLAS DE FUNÇÃO 


E PROGRAMAÇÃO DAS TECLAS 


8 MONTAGEM DE UM MENU 


EE | COMO DETECTAR INTERRUPÇÕES 
mM  PROGRAMEA TECLA <STOP> 


mo permite que o usuário reprograme 
a função de parte das teclas, de acordo 
com suas necessidades. 

Em número de dez a doze, as teclas 
programáveis pelo usuário, também 
chamadas de teclas de função, em geral 
se situam num bloco isolado, na parte 














superior ou lateral do teclado. Essa dis- 
posição facilita a correspondência entre 
as teclas e os rótulos a elas atribuídos, 
cujo posicionamento pode ser exibido 
na última linha do vídeo, também sob 
controle de programa. 

Os micros da linha MSX dispõem de 
cinco teclas programáveis, que estão lo- 
calizadas na parte superior do teclado. 
Na realidade, elas possibilitam o acesso 
a dez funções, pois, pressionando-se a 
tecla < SHIFT > simultaneamente com 
uma tecla programável, ativa-se uma se- 
gunda função que pode ser atribuída 
aquela tecla. 

Os recursos de programação dispo- 
níveis no interpretator BASIC do MSX 
são muito ricos. Aprendendo a explorá- 
los de maneira criativa, você se habili- 
tará a produzir programas com um de- 
sempenho altamente profissional. Nes- 
te artigo, apresentamos alguns truques 
interessantes, muitos dos quais não se 
encontram no Manual de BASIC que 
acompanha o computador. Você logo 
será capaz de aproveitá-los com suces- 
so em outros programas. 





* TECLAS PROGRAMÁVEIS 


As teclas de função podem ser usa- 
das de dois modos em um programa: 

— para dar entrada a uma cadeia de 
caracteres no computador, pressionan- 
do-se uma única tecla; 

— para interromper automaticamen- 
te a execução de um programa e 
redirecioná-lo para executar uma ou 
mais sub-rotinas específicas, cada qual 
associada a uma tecla programável. 

Em ambos os casos, é possível (mas 
não obrigatório) exibir em uma linha re- 
servada (a última linha da tela) uma lis- 
ta de rótulos de identificação das teclas. 
Assim, O usuário não precisará recorrer 
sempre à memória para saber o que faz 
cada tecla programável. Essa linha, uma 
vez “ligada”, fica presente na tela, mes- 
mo quando seu conteúdo “rola”. 





COMANDOS INSTANTÂNEOS 


O modo mais simples de utilização 
das teclas programáveis, que consiste em 
dar entrada a uma cadeia de caracteres, 
é exemplificado pela operação normal 
do próprio computador. 

Como você já deve ter observado, ao 
ligar a máquina (ou ao pressionar o bo- 
tão <RESET> de inicialização, exis- 
tente em alguns micros da linha MSX), 
aparece uma série de rótulos na linha in- 
ferior da tela. Eles correspondem a co- 


mandos ou instruções do BASIC, ou se- 
ja, COLOR, LIST, RUN, GOTO etc. 

Se você pressionar uma das teclas 
programáveis (identificadas na parte su- 
perior do teclado pelos rótulos Fl, F2 etc.), 
verá que a palavra a ela associada é en- 
trada por extenso no computador, apa- 
recendo na tela logo adiante do cursor. 

Caso pressione a tecla < SHIFT > o 
conteúdo da linha inferior da tela mu- 
dará para outros quatro rótulos adicio- 
nais, que correspondem às funções das 
teclas F6 a F10. Portanto, a pressão si- 
multânea das teclas Fl e <SHIFT> 
provocará a entrada automática da ca- 
deia associada. 

O carregamento dos rótulos associa- 
dos a cada tecla é feito automaticamen- 
te, no momento de inicialização do in- 
terpretador BASIC. Para apagar a linha 
da tela, basta dar o comando: 


KEY OFF 


seja em modo direto, seja dentro de um 
programa. 

Tente fazer isso e, em seguida, pres- 
sione novamente uma das teclas de fun- 
ção. Você verá que ela continua funcio- 
nando — a cadeia de caracteres a que 
se associa aparece do mesmo jeito na te- 
la. A função do comando KEY OFE, 
portanto, resume-se ao desligamento da 
linha de exibição. 

O comando seguinte faz exatamente 
o contrário do anterior, ou seja, torna 
a exibir a linha de tela associada às te- 
clas programáveis: 


KEY ON 


Este comando também pode ser di- 
gitado em modo direto ou ser colocado 
dentro de um programa. 

No caso da programação BASIC, a 
vantagem de se associar os comandos 
mais comuns às teclas programáveis é 
evidente: em vez de digitar o comando 
por extenso, pressiona-se a tecla progra- 
mável uma vez. Com isso, evitamos er- 
ros de digitação e aceleramos conside- 
ravelmente o processo de entrada de um 
programa BASIC. 

Experimentando todas as teclas pro- 
gramáveis, você observará que algumas 
delas, ao serem pressionadas, simples- 
mente dão entrada à cadeia de caracte- 
res (por exemplo, LIST), e mais nada 
acontece. O cursor fica parado no fim 
da palavra entrada. Para que o coman- 
do seja executado, você deverá pressio- 
nar a tecla < ENTER>, que o envia pa- 
ra o processador. No exemplo dado, a 
execução resultaria na listagem de um 
programa inteiro na tela. 

Você pode, porém, digitar o número 
ou os números de linha sobre os quais 


o comando LIST vai atuar, e só depois 
pressionar < ENTER>. 

Algumas teclas programáveis, por 
outro lado, dão entrada à palavra asso- 
ciada, mas a executam imediatamente — 
é o caso de RUN. Como veremos adian- 
te, essa diferença de funcionamento po- 
de ser especificada facilmente pelo pro- 
gramador. Tudo depende da função que 
se quer associar a cada tecla. 

Para verificar na tela quais os rótu- 
los que se associam a cada uma das te- 
clas programáveis, digite o comando 
KEY LIST. As palavras que são envia- 
das imediatamente, sem a necessidade 
do <ENTER>, aparecem assinaladas 
por uma flechinha no final. Sabe-se, 
desse modo, que o caractere de contro- 
le equivalente ao < ENTER > foi agre- 
gado ao final da palavra. 


PROGRAMAÇÃO DAS TECLAS 





É muito fácil atribuir uma cadeia de 
caracteres a uma tecla programável, € 
pode-se fazê-lo tanto em modo direto 
quanto dentro de um programa. À ins- 
trução em BASIC a ser utilizada é: 


KEY n,"cadeia” 


onde n é o número da tecla de função, 
e “cadeia”, o rótulo que deve ser asso- 
ciado à tecla. Experimente digitar, por 
exemplo: 


KEY 1,ºCLS" 


O rótulo da tecla Fl, que inicialmente 
era COLOR, passa a ser CLS, ao ser ini- 
cializado o computador. Confira, digi- 
tando KEY LIST. 

Agora, pressione a tecla Fl. Você ve- 
rá então que o comando CLS aparece 
instantaneamente na tela, logo após o 
cursor, mas não é executado. Para que 
isso ocorra, você deverá pressionar a te- 
cla <ENTER>. 

Se quisermos que a execução do co- 
mando seja automática, precisaremos 
definir a tecla de outro modo: 


KEY 1,"CLS"+CHRS (13) 


Ao listar o conteúdo das teclas pro- 
gramáveis com KEY LIST, você cons- 
tatará que a marca de retorno foi acres- 
centada no fim da palavra CLS. 

O caractere ASCII 13, adicionado à 
cadeia de caracteres por meio da função 
CHRS, corresponde exatamente ao có- 
digo gerado internamente ao se pressio- 
nar a tecla < ENTER>. Ou seja, equi- 
vale a pressioná-la automaticamente, 
quando a tecla Fl é acionada. 

Cabem exatamente seis caracteres no 
espaço alocado para o rótulo de cada te- 











cla, na linha de menu, Isto é o que cabe 
na tela, o que não significa que você es- 
teja limitado a definir um rótulo de ape- 
nas seis caracteres. Experimente digitar: 


KEY 1,"DEFUSR1=31100"+CHRS (13) 


Apenas as seis primeiras letras (DE- 
FUSR) aparecerão na tela, mas a cadeia 
será enviada por extenso quando se pres- 
sionar a tecla Fl. Portanto, se for ne- 
cessário “esconder”” a marca de retor- 
no em um rótulo, basta digitar a seguin- 
te linha: 


REY 1,"CLS "+CHRS (13) 


Deixe três espaços entre o final da pa- 
lavra e o segundo sinal de aspas, nesse 
exemplo. 

Se a cadeia de caracteres a ser asso- 
ciada à tecla tiver que conter aspas em 
seu interior, não dará certo fazer algo 
como: 


KEY 1,"LOAD "* CODE” 


A função CHRS$, mais uma vez, re- 
solve o dilema: 


KEY 1,"LOAD "+CHRS (44)+ 
CHR$ (44)+" CODE” 


O código ASCII 44, evidentemente, 
corresponde ao caractere aspas. 


OUTROS USOS 


Não é obrigatório atribuir às teclas 
programáveis apenas comandos ou ins- 
truções em BASIC. Na realidade, pode- 
se atribuir a elas qualquer cadeia de ca- 








racteres, o que possibilita muitas apli- 
cações interessantes. 

Suponhamos, por exemplo, que vo- 
cê vd passar uma longa mensagem ao 
computador usando um programa de 
processamento de textos. Se notar que 
certas palavras ou frases mais longas se- 
rão empregadas várias vezes (como mi- 
crocomputador, Secretaria Especial de 
Informática etc.), bastará carregar pre- 
viamente as teclas de função com estas 
cadeias (não seguidas do caractere AS- 
CII 13). Pelas seis primeiras letras da 
frase, você poderá identificar a tecla as- 
sociada a ela e, simplesmente, pressioná- 
la. Isso poupará muito tempo de di- 
gitação! 





TÉCNICAS DE PROGRAMAÇÃO DE MENUS 


Como já foi mencionado, as teclas 
programáveis são muito utilizadas para 
a programação rápida de menus, ofere- 
cendo duas vantagens: o menu fica sem- 
pre presente na linha reservada da tabe- 
la, e é muito mais fácil localizar as te- 
clas associadas às suas opções do que se 
estivéssemos utilizando teclas normais 
do teclado. 

Os programas que se seguem vão 
mostrar algumas das técnicas mais co- 
muns de programação de menus utili- 
zando as teclas de função. 

Suponhamos que você queira elabo- 
rar um programa de banco de dados, 
com as quatro funções clássicas: inserir 
registros, apagar registros, modificar re- 
gistros e listar o banco de dados. Além 
dessas funções precisariamos de uma 


quinta opção: a de término da execução 
do programa. 

Já vimos como montar um menu des- 
se tipo de diversas maneiras — usando 
PRINT, INPUT, INKEYS etc. Para 
usar teclas programáveis, poderiamos 
fazer o seguinte: 


10 ST$=STRING$(38," ”) 
20 KEY OFF:CLS 
30 KEY 1,"Ingere”" 
40 KEY 2,"Apaga * 
50 KEY 3,"Modif " 
60 KEY 4,"Lista " 
20 KEY S,"PIM ” 
80 LOCATE 10,0 
90 PRINT "BANCO DE DADOS" 
LOCATE 0,1:PRINT STS 
LOCATE 0,21:PRINT STS 
KEY ON 
AS=INPUTS (6) 
| LOCATE 0,10 
PRINT "FUNÇÃO: ";AS 
IF AS="FIM  " THEN CLS:END 
170 GoTo 130 

A linha 10 define uma variável, STS, 
igual a uma cadeia de 38 tracinhos: é a 
linha de separação, usada para dar me- 
lhor aparência à tela de entrada. A li- 
nha 20 ““desliga”" a linha de identifica- 
ção das teclas programáveis e limpa a te- 
la. As linhas 30 a 70 programam as te- 
clas de função Fl a F5. As linhas de 90 
a 110 compõem a tela e a 120 “liga” no- 
vamente a linha de exibição dos rótulos 
das teclas de função, desta vez com os 
rótulos que foram atribuídos no 
programa. 

Finalmente, as linhas 130 a 150 pro- 


cessam o resultado da pressão às teclas EM 
de função. Observe que a instrução MM 





INPUTS, própria do MSX, tem um fun- 
cionamento semelhante ao do INKEYS, 
só que inclui um determinado número 
de pressões às teclas, de cada vez. 
INPUT$(6) significa que o computador 
deve esperar que seis caracteres sejam 
digitados (não os mostra na tela) para, 
então, prosseguir o programa. 

Note que colocamos seis caracteres 
em cada rótulo, preenchendo-os com es- 
paços em branco ao final, quando ne- 
cessário. Assim, qualquer pressão a uma 
tecla programável imediatamente aten- 
derá à condição da linha 130, armaze- 
nando o resultado na variável A$ e se- 
guindo para as linhas 140 a 160. 

As linhas 140 e 150 cabe simplesmen- 
te escrever o resultado dessa atuação no 
meio da tela. A linha 160 exemplifica o 
que fazer a partir daí. Ela verifica se 
FIM foi pressionado e executa 
CLS:END, terminando o programa, se 
isto aconteceu. 

Diversos IF seriam utilizados para 
chamar (GOSUB) as rotinas de inserção, 
apagamento etc., no nosso banco de da- 
dos. A linha 170 faz tudo voltar ao me- 
nu. Pode ser interessante dar um KEY 
OFF antes de chamar as rotinas, para 
que o usuário não tenha a impressão de 
que o menu ainda continua disponível. 
Isso pode ser feito seletivamente, como 
veremos mais adiante. 

O programa seguinte, que é uma mo- 
dificação do anterior, testa o resultado 
da pressão a uma tecla de função com 
mais economia. 


10 STS=STRINGS(38," "] 

20 KEY OFF:CLS 

30 KEY 1,"ºInsere” 

40 KEY 2,"Apaga * 

50 KEY 3,"Modif * 

60 KEY 4,"Ligta ” 

70 KEY 5," FIM a 

BO LOCATE 10,0 

90 PRINT "BANCO DE DADOS” 

100 LOCATE 0,1:PRINT STS 

110 LOCATE 0,21:PRINT STS 

120 KEY ON 

130 AS=LEFTS (INPUTS (6),1) 

140 LOCATE 0,10 

150 ON INSTR("IAMLE”,AS) GOSUB 
170,180,190,200,900 

155 GOTO 130 

170 PRINT "ROTINA DE INSERÇÃO 


175 RETURN 
180 PRINT "ROTINA DE APAGAMENTO 


185 RETURN 

190 PRINT "ROTINA DE MODIFICAÇA 
o” 

195 RETURN 

200 PRINT "ROTINA DE LISTAGEM 


205 RETURN 
900 REM FIM DO PROGRAMA 
905 CLS: END 


Observe que, agora, a linha 130 é 
usada para extrair e armazenar em A$ 
apenas o primeiro caractere do rótulo da 
tecla de função acionada. Portanto, os 
rótulos precisam ter, como no exemplo, 
letras iniciais diferentes, para evitar con- 
fusões. 

Na linha 15 está a vantagem dessa 
técnica. Ela permite utilizar a forma 
bem mais compacta do ON...GOSUB, 
para dirigir o programa à rotina chama- 
da pelo menu. 

A função INSTR, que talvez você 
não conheça, significa, em inglês, in 
string, ou seja, dentro de um cordão. 
Ela verifica se um caractere ou cadeia 
de caracteres está presente dentro de 
uma outra cadeia. Em caso negativo, O 
valor zero é retornado. Em caso afirma- 
tivo, a posição do caractere (sua ordem 
no primeiro cordão) é retornada. Por 
exemplo: 


PRINT INSTR ("COMPUTADOR”,"P”) 
retorna o valor 4, enquanto: 


LET AS="X" 
PRINT INSTR ("COMPUTADOR”",AS) 


retorna o valor zero. 

No programa, o cordão IAMLF es- 
pecificado corresponde às letras iniciais 
das cinco opções oferecidas pelo menu. 
Sendo pressionada uma das teclas pro- 
gramáveis, a letra inicial do rótulo é ar- 
mazenada em AS$ (linha 130) e testada 
pela função INSTR, na linha 150. O 
número retornado serve para endere- 
çar a sub-rotina que será selecionada em 
ON... GOSUB. 

A listagem do programa anterior 
mostra apenas a primeira e a última li- 
nhas das rotinas. Se estiver interessado, 
complete-as você mesmo. 





INTERRUPÇÕES PROGRAMADAS 


Os programas vistos até aqui parecem 
não apresentar vantagens mais signifi- 
cativas em relação à programação con- 
vencional de menus que aprendemos an- 
teriormente. Na realidade, eles apenas 
acrescentam a possibilidade de utiliza- 
ção das teclas programáveis e da linha 
reservada de rotulação. 

Entretanto, as teclas de função do 
micro MSX oferecem um recurso bem 
mais poderoso de programação: a inter- 
rupção programada. 

Quando pressionamos uma das teclas 
de função Fl a F10, o comportamento 
do computador é diferente do observa- 
do em relação às teclas normais do te- 
clado. Em vez de simplesmente gerar um 
caractere ou cordão de caracteres, a 
pressão à tecla de função “avisa” o in- 


terpretador BASIC — qualquer que se- 
ja o ponto do programa que esteja sen- 
do executado — que tal pressão ocor- 
reu, gerando o que se denomina, em lin- 
guagem técnica, de interrupção do pro- 
cessador (UCP). | 

Para entender como funciona uma 
interrupção pelo teclado, basta tomar 
como exemplo uma tecla que já é pré- 
programada para gerar um tipo especi- 
fico de interrupção: a tecla <STOP>. 

O sistema operacional e interpretador 
BASIC do MSX está sempre “atento” 
à tecla <STOP>, por meio de um dis- 
positivo especial de hardware, para de- 
tectar se ela foi pressionada. A verifica- 
ção é feita a cada poucos microssegun- 
dos e, não importa o que o computador 
esteja fazendo no momento da interrup- 
ção, imediatamente o processador pas- 
sa a executar uma rotina de serviço que, 
no caso, servirá para “congelar” um 
programa em execução ou interrom- 
nê-lo, retornando ao modo de entrada 
(quando <CONTROL> e <STOP> 
são pressionadas simultaneamente). 

Pois bem, Fl a F10 são teclas de in- 
terrupção programáveis, ou seja, O pro- 
gramador pode especificar a rotina de 
serviço que deve ser acionada pelo sis- 
tema operacional correspondente a ca- 
da tecla, 

Existem diversas instruções do BA- 
SIC que permitem programar interrup- 
ções a partir das teclas Fl a F10. Uma 
delas consiste em: 


ON KEY GOSUB nl,n2... 


que verifica se alguma tecla de função 
foi pressionada, ou seja, se ocorreu uma 
interrupção. Conforme a tecla pressio- 
nada, um número inteiro entre 1 e 10 é 
retornado. Ele chama a sub-rotina na 
ordem indicada, nas linhas nl, n2 etc. 


"ON KEY GOSUB 1000, 1100, por 


exemplo, provocará um salto para a 
sub-rotina que começa na linha 1000, se 
a tecla Fl for acionada, ou para a linha 
1100, se a tecla F2 for acionada. A ins- 
trução ON KEY GOSUB deve ser colo- 
cada em um ponto da listagem que as- 
segure a sua execução pelo menos uma 
vez, antes das detecções de interrupção, 
que, como a rotulação das teclas, ocor- 
rem no começo do programa. 

Porém, precisamos de mais uma con- 
dição para montar a ““armadilha”” que 
detecta interrupções. A capacidade de 
gerar interrupções pode ser “ligada” ou 
“desligada” de cada tecla de função in- 
dividualmente, pelas instruções: 


KEY (n) ON 
KEY (n) OFF 


KEY (n) STOP 
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onde n é o número da tecla. Quando se 
liga o computador, todas as teclas estão 
em modo OFF, ou seja, “desligadas”. 
Ão ser detectada uma pressão à tecla de 
função, um KEY STOP é dado automa- 
ticamente, inibindo toda a interrupção 
subsequente, até que ocorra um RE- 
TURN da sub-rotina chamada pelo ON 
KEY GOSUB. 

Embora o comando KEY (n) STOP 
iniba a interrupção do programa, ele 
continua sendo capaz de detectar uma 
pressão à tecla de função indicada. As- 
sim, ao retornar da rotina de serviço de 
uma tecla de função, o programa pode- 
rá imediatamente rumar para outra ro- 
tina, se, enquanto isso, outra tecla de 
função tiver sido pressionada, 

Se o programador quiser imbir tan- 


to a interrupção quanto a detecção, de- 
ve usar um comando KEY (n) OFF, 

No programa seguinte você encontra- 
rá exemplos das técnicas mais elemen- 
tares de utilização das instruções ON 
KEY GOSUB e KEY ON, O objetivo é 
imitar uma máquina de somar simples, 
que apresenta o resultado quando a te- 
cla Fl é pressionada. 


LO CLS 

20 PRINT TAB(ILO0); SOMADORA MSX 
1” 

30 ON KEY GOSUB 200 

do 5=0 

SO KEY (1) ON:KEY 1,7SOMA ” 
60 KEY 2,” T:KET 3," ” KEY 
E RMS 

120 


130 ALÇA DE SOMA 


140 
150 
160 
170 


LOCATE 6,10 
PRINT ” 

LOCATE 0,10 

180 INPUT "VALOR ";V 
190 S=S+V:GOTO 150 
200 ' 
210 * 
220 ' 
230 LOCATE 0,12 
240 PRINT "SOMA = 
250 RETURN 150 


SUBROTINA PARA TECLA F1 


A linha 30, logo no começo do pro- 
grama, prepara a armadilha para detec- 
tar interrupções pelas teclas de função 
e desviar o fluxo de processamento, A 
linha 40 zera a variável S, que é O acu- 
mulador de somas; a linha 50 “liga” a 
tecla Fl e rotula seu propósito na linha 


A 4 É 


O NT a 











| ER , 
| | 


reservada para exibição na tela. A linha 
60 “limpa” os rótulos das teclas progra- 
máveis que não serão usadas. 

As linhas 150 a 190 do programa rea- 
lizam a função de soma de valores. Elas 
formam uma alça sem fim, o que é típi- 
co de todo programa que utiliza as te- 
clas de função do contexto do ON KEY 
GOSUB. A alça sem fim faz o progra- 
ma esperar ou executar alguma coisa (no 
caso somar os números entrados pelo 
usuário), até que uma tecla de interrup- 
ção seja pressionada. 

Se se pressionar a tecla Fl enquanto 
o programa está esperando a entrada de 
um valor, nada acontece de imediato. 
Mas, assim que a tecla < ENTER > for 
pressionada, a rotina que começa na li- 
nha 200 será acionada, pois foi a espe- 
cificada na linha 30. Ela simplesmente 
mostra a soma acumulada até o último 
número entrado e retorna para a linha 
30, de modo a dar prosseguimento à 
soma. 

E o que acontece se alguma tecla pro- 
gramável não desativada for acidental- 
mente pressionada? Não acontece nada, 
pois o funcionamento do ON KEY GO- 
SUB é tal que o desvio se realiza apenas 
para as sub-rotinas indicadas. 





UM PROGRAMA MAIS FUNCIONAL 


Embora não apresente problemas de 
funcionamento, o programa anterior 
tem dois defeitos; não oferece provisão 
para interrupção ao final do processa- 
mento, nem a possibilidade de zerar o 
acumulador para permitir nova soma 
sem sair do programa. O seguinte, mais 
completo, faz tudo isso: 


10 CLS 

20 PRINT TAB(10);"SOMADORA MSX 
II” 

30 ON KEY GOSUB 200,300,400 

40 S=0 
50 KEY 
60 KEY 
70 KEY 
BO KEY 
120 * 
130 '* 
140 * 
150 LOCATE 6,10 

160 PRINT ” ã 
170 LOCATE 0,10 

180 INPUT "VALOR ";V 

190 5=S+V:GOTO 150 

200 ' 
20 
220 * 
230 LOCATE 0,12 
240 PRINT "SOMA = 
250 RETURN 150 
300 
SAM! * 
320 : 


(1) ON:KEY 1,"SOMA ” 
(2) ON:KEY 2,"LIMPA * 
(3) ON:RKEY 3,"FIM ii 
4,” ".KEY 4.” [o 


ALÇA DE SOMA 


SUBROTINA PARA TECLA F1 


".s 


SUBROTINA PARA TECLA FZ 


LOCATE 0,12 
PRINT "SOMA = Q 
S=0:RETURN 150 


330 
340 
350 
400 
410 * 
420 * 
430 CLS: END 


SUBROTINA PARA TECLA F3 


Agora, a linha 30 permite o desvio 
para três rotinas: de soma (linha 200), 
de zeragem (linha 300) e de término (li- 
nha 400). Experimente pressionar outras 
teclas de função enquanto uma rotina 
está sendo executada: se você conseguir 
fazê-lo a tempo, notará que nada 
acontece. 

Em um programa curto como este, a 
definição individual de cada KEY é mais 
do que satisfatória. Entretanto, se pre- 
cisar incluir muitas teclas, você poderá 
obter um programa mais compacto e 
elegante fazendo esta definição dentro 
de um laço de repetição. Para ter um 
exemplo, substitua estas linhas no pro- 
grama anterior: 


50 FOR I=1 TO 5 

60 READ CS:KEY (I) ON 

70 KEY I,CS:NEXT 1 

80 DATA "SOMA ","LIMPA ","ºFIM 


O laço que vai das linhas 50 a 70 faz 
um índice I variar de 1 a 5. A linha 60 
lê sucessivamente os rótulos das teclas, 
em DATA. Observe que os rótulos não 
usados são definidos como um espaço 
em branco. 

As linhas 60 e 70 ainda se encarre- 
gam, respectivamente, de ““ligar”” a te- 
cla e atribuir-lhe o rótulo C$. Note que 
os comandos aceitam variáveis como ar- 
gumentos. 

Ao experimentar o programa, você 
deve ter reparado que as teclas progra- 
máveis não interrompem o programa 
enquanto ele está esperando entradas 
pelo usuário, em um comando INPUT. 
Como se trata de um inconveniente, re- 
correremos a um expediente que possi- 
bilitará a ocorrência de interrupção em 
qualquer momento. A condição para is- 
so é que o computador esteja dentro de 
um laço de repetição durante a entrada 
de um valor na linha 30. Tal condição 
pode ser atendida se “'simularmos”” um 
comando INPUT, por meio de vários 
INKEY$ sucessivos. 

A rotina seguinte, que começa na li- 
nha 500, faz esse serviço, e retorna um 
valor númerico V. Substitua também a 
linha 30, como foi indicado: 


180 
500 


PRINT "VALOR ";:GOSUB 500 
VSm"" 

510 CS=INKEYS:IF CS$="" THEN 510 
520 IF ASC(C5)=13 THEN V=VAL ( 
VS) :RETURN 

530 PRINT CS:VS=VS+CS:GOTO 510 





Experimente o programa modificado 
e veja como ele é capaz de aceitar inter- 
rupções também dentro do ciclo de en- 
trada de dados. 


PROGRAMAÇÃO DA TECLA <STOP> 


Afirmamos um pouco antes que 
<STOP> é uma tecla de interrupção 
pré-programada, ou seja, que executa 
uma rotina fixa ao ser acionada. Bem, 
a afirmação é totalmente verdadeira! 

De fato, o usuário também pode pro- 
gramar a tecla <STOP >, definindo o 
que ela deve fazer quando for pressio- 
nada. Assim, <STOP > equivale às te- 
clas de função, só que não dispõe de es- 
paço próprio na linha reservada de ro- 
tulação, para dizer ao usuário o que ela 
faz. Mas podemos utilizar a própria de- 
finição da tecla e usá-la sempre para ter- 
minar um programa ou um sub- 
programa. Esta função de “escape” de 
um nível de programa para outro é a 
marca registrada dos superprogramas 
comerciais atualmente disponíveis para 
computadores pessoais. 

O comando que se segue desvia o 
processamento para a sub-rotina indica- 
da, quando as teclas <CTRL> e 
< STOP > são pressionadas simultanea- 
mente (nada acontece se se pressionar 
apenas a tecla <STOP>). 


ON STOP GOSUB 


Para que uma instrução ON STOP 
GOSUB funcione, é necessário ativar a 
armadilha interna, por meio de um co- 
mando STOP ON, A partir do momen- 
to em que este comando for encontra- 
do, o desvio será realizado para a 
sub-rotina indicada no ON STOP GO- 
SUB, sempre que se pressionar simulta- 
neamente as teclas <CTRL> e 
< STOP >. Como nas teclas de função, 
os comandos STOP OFF e STOP STOP 
“desligam”, respectivamente, a inter- 
rupção e a detecção, para as teclas men- 
cionadas. Experimente alterar o progra- 
ma, adicionando a opção de interrup- 
ção pelas teclas <CTRL> <STOP>: 


45 ON STOP GOSUB 400 
90 STOP ON 


A possibilidade de detectar o aciona- 
mento da tecla < STOP > tem uma ou- 
tra utilidade: muitas vezes, O programa- 
dor deseja impedir a interrupção aciden- 
tal ou intencional de seu programa por 
um outro usuário, seja para protegê-lo 
contra olhos curiosos, seja para evitar 
perdas de dados ou outras condições cri- 
ticas. O ON STOP GOSUB funciona 
muito bem para esta finalidade, no mi- 
cro MSX. 








SPRITES PARA 





OTRS-80 (1) 





Os usuários do TRS-80 não precisam 

ficar frustrados por não disporem dos 

fabulosos sprites. Como verão aqui, é 
possível obter animações de excelente 
qualidade em suas máquinas. 


Se você já tentou produzir gráficos 
animados em um microcomputador da 
linha TRS-80 usando os comandos SET 
e RESET, com certeza chegou à conclu- 
são de que a tarefa é praticamente im- 
possível. Esses comandos servem para 
acender ou apagar pixels individuais na 
tabela de baixa resolução, permitindo 
compor, sem maiores dificuldades, figu- 
ras complexas, como um avião ou um 
foguete. Entretanto, se tentarmos ani- 
mar o desenho como um todo — 
deslocá-lo na tela, por exemplo —, ob- 
teremos efeitos ridículos, graças à len- 
tidão do interpretador BASIC. 

Vimos em artigos anteriores que, no 
que se refere aos micros pessoais mais 
modernos — como os das linhas Spec- 
trum, TRS-Color, MSX e Apple —, a 
solução para esse problema consiste em 
definir caracteres gráficos por softwa- 
re, armazená-los em uma porção da me- 
mória (área UDG no Spectrum, sprites 
autênticos no MSX e variáveis numéri- 
cas ou alfanuméricas nos demais com- 
putadores) e animá-los. 

Evidentemente, o TRS-80 não conta 
com recursos tão maravilhosos. Mas há 
um “Jjeitinho”” que nos permite obter 
animações fantasticamente rápidas... 
em BASIC! Veremos como em uma sé- 
re de artigos. Antes, porém, precisamos 
entender o funcionamento dos caracte- 
res gráficos pré-definidos do TRS-80. 


CARACTERES GRÁFICOS 





O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros que, teoricamente, podem variar en- 
tre 0 e 255 — cada caractere correspon- 
dendo, portanto, a um byte da memó- 
ria de vídeo. Parte dessa codificação é 
convencionada internacionalmente: 
trata-se do chamado código ASCII, que 


vai de 32 a 126. Os códigos O a 31 são 
normalmente utilizados para funções de 
controle do vídeo, e dependem do tipo 
de computador. O mesmo acontece com 
os códigos 127 a 255. Nesta faixa cada 
fabricante utiliza os códigos de uma ma- 
neira, geralmente para acomodar carac- 
teres gráficos. 

O TRS-80 possui 64 caracteres gráfi- 
cos de teclado, ocupando a faixa de có- 
digos que vai de 128 a 191. 

O caractere gráfico com o código 128 
é um espaço em branco, semelhante ao 
que recebe o código 32 no ASCII. En- 
tretanto, não deixa de ser útil, sobretu- 
do para efeito de certas manipulações 
nas telas gráficas. 

Um aspecto bastante interessante dos 
caracteres gráficos pré-definidos é que 
eles se comportam exatamente como 
qualquer outro caractere alfanumérico, 
para fins de impressão na tela. Assim, 
eles podem ser usados como argumen- 
to de comandos PRINT, o que nos per- 
mite obter boa velocidade na exibição 
de gráficos no micro TRS-80. 

Ao contrário dos caracteres gráficos 
pré-definidos do TK-2000, do MSX, do 
ZX-81 e do Spectrum, os do TRS-80 não 
podem ser entrados pelo teclado. Assim, 
para especificá-los dentro de um progra- 
ma, é necessário utilizar as funções 
CHRS$ e STRINGS. 

Para imprimir na tela um retângulo 
totalmente preenchido, escrevemos, por 
exemplo: 


PRINT CHARS (191) 


O programa abaixo mostra a tabela 
de correspondência entre códigos numé- 
ricos e gráficos na tela do TRS-RO0: 


10 CLS 

20 FOR J=129 TO 191 STEP 9 
30 FOR I=J TO J+8 

40 PRINT I;CHRS(I); 

50 NEXT I:PRINT:NEXT J 


O programa funciona da seguinte 
maneira: a linha 10 limpa a tela. O laço 
que vai da linha 20 à linha 50 (controla- 
do pela variável J) produz valores nu- 
méricos que variam entre 129 e 191 (a 
faixa de códigos gráficos, portanto), em 
incrementos de 9. Assim, o laço das li- 
nhas 30 a 50 (controlado pela variável 
I) pode incrementar de 1 em 1 os valo- 
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res intermediários. Este é um artifício 
utilizado para produzir na tela uma ta- 
bela clara e bem-feita, com nove códi- 
gos por linha, 

A linha 40 do programa exibe o có- 
digo numérico (1) e o caractere gráfico 
correspondente (CHR$(1). O PRINT 
entre os dois NEXT na linha 50 serve 
para mudar a linha de impressão. 

Se você pretende empregar caracte- 
res gráficos frequentemente em um pro- 
grama, convém armazenar os seus có- 
digos em uma variável alfanumérica. 
Com esse procedimento, você não só 
poderá utilizá-los com mais facilidade 
como também não precisará consultar 
a toda hora a tabela de códigos gráfi- 
cos, ao desenvolver um programa. 

Da mesma maneira, se você quiser 
utilizar uma cadeia de caracteres gráfi- 
cos em vários pontos de um programa, 
armazene-a em uma variável alfanumé- 
rica. Para isso, recorra à função 
STRINGS. 

Execute o programa abaixo e veja co- 
mo ficam linhas compostas pelo mesmo 
caractere gráfico. 

10 CLS 

20 INPUT"CODIGO GRAFICO 
(129-191)";€ 

30 INPUT”COMPRIMENTO (1-63)";N 
40 SS=STRINGS(N,C) 

50 PRINT & 256,85 

60 FOR I=1 TO 500:NEXT 

70 GOTO 10 


A função STRINGS tem várias utili- 
dades, quando empregada com códigos 
gráficos. Uma delas, por exemplo, é 
preencher instantaneamente a tela com 
um caractere gráfico. Lembre-se de que 
a tela de textos do TRS-80 tem 1024 ca- 
racteres (dezesseis linhas de 64 colunas 
cada). Se usarmos, por exemplo, uma 
linha de programa composta de quatro 
PRINT STRING$(256,191), separados 
por ponto e vírgula, o resultado será um 
preenchimento total da tela com o ca- 
ractere gráfico 191, que corresponde a 
um bloco inteiramente preenchido (ve- 
ja a tabela constante do seu Manual de 
Programação). 

Substituindo o segundo argumento 
da função STRINGS$ por outro código 
qualquer, poderemos usar o mesmo re- 
curso para preencher a tela com blocos 
gráficos diversos. | 
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GRÁFICO 


Na teoria, pelo menos, não faz sen- 
tido falar na criação de um desenho tri- 
dimensional — uma caixa, por exemplo 
—, num plano bidimensional, seja ele 
um pedaço de papel ou uma tela de te- 
levisão. No entanto, podemos recorrer 
a técnicas de desenho que dão às figu- 
ras a impressão de solidez. 





PERSPECTIVA E PROJEÇÃO ISOMÉTRICA 





A pintura de uma paisagem, por 
exemplo, parece ter profundidade e dis- 


SEM3- D(2) 


tância quando o pintor faz o desenho em 
perspectiva. Trata-se de um truque vi- 
sual baseado no fato de que os objetos 
parecem ficar menores à medida que se 
distanciam, e de que linhas paralelas pa- 
recem convergir a distância. 

A perspectiva não é a única técnica 
usada nesse tipo de representação. Em 
desenho técnico é comum ouvirmos fa- 
lar de projeção isométrica. Como no de- 
senho em perspectiva, as linhas que o 
observador não vê são desenhadas num 
certo ângulo. Porém, elas não conver- 









Até aqui, limitamos nossos wireframes 
a linhas e formas bidimensionais. 

Mas, com algumas alterações nas rotinas 1 
utilizadas anteriormente, poderemos 1 
estruturar imagens tridimensionais. [ 
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gem e os objetos não parecem ficar me- 
nores à distância. A vantagem da proje- 
ção isométrica é que a direção da linha 
não afeta a escala e, por isso, pode-se 
saber a medida exata de cada linha di- 
retamente do desenho. 

Embora possamos utilizar o compu- 
tador para fazer um desenho em pers- 
pectiva, é bem mais fácil representar a 
projeção isométrica. Esta baseia-se sim- 
plesmente na criação de um terceiro ei- 
xo, além do eixo X (horizontal) e do eixo 
Y (vertical) já existentes. Este terceiro 
eixo, o Z, está posicionado num certo 
ângulo com os outros dois. Qualquer li- 
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nha desenhada nesse ângulo pode ser en- 
tendida como se afastando (ou se apro- 
ximando) do observador. O diagrama dos 
eixos na figura da página 630 ajudará a 
entender melhor o que dissemos até agora. 





ALTERAÇÕES NO PROGRAMA 


Recorrendo à projeção isométrica, 
podemos produzir imagens tridimensio- 
nais tipo wireframe a partir de formas 
bidimensionais, utilizando as rotinas pa- 
ra grades e círculos apresentadas no pri- 
meiro artigo da série. Algumas dessas 






E UM CUBO COM GRADES 














formas bidimensionais precisarão ser 
distorcidas, de modo que se tornem com- 
patíveis com o ângulo do eixo Z. Para 
isso procederemos a várias mudanças de 
coordenadas baseadas em princípios ma- 
temáticos um tanto complicados. Mas não 
se preocupe, pois o computador os ma- 
nuseia com facilidade. 

Em primeiro lugar, transformaremos 
coordenadas 2-D (X,Y) em 3-D(X',Y”, 
Z'), no plano desejado. Isto sigmific 


que devemos especificar o quanto o pla= 


no se estende ao longo do eixo Z. D 

pois transformaremos as coordenadas 
3-D (X', Y', Z') num novo conjunto de 
coordenadas 3-D (Xe,Ye,Ze), baseado 
na direção e posição da qual olhamos o 
objeto. Finalmente, voltaremos a trans- 
formar (Xe,Ye,Ze) em coordenadas 2-D 
(Xp,Yp), para que o conjunto possaser 
mostrado na tela. Acompanhe os dia 
gramas da página 631; eles mostra 


modificação de uma forma de desenh | 


nos seis lados de uma imagem. 
Durante a transformação, podemos 
levar em consideração a perspectiva, 
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À JEF DE SR E OE DS 


Posso modificar o programa para de- 
senhar imagens diferentes? 

A rotina-base de nosso programa é 
a que compõe a grade. À rotina que ela 
utiliza para traçar linhas poderia ser mo- 
dificada para desenhar outras formas. 
No caso de um triângulo, por exemplo, 


não haverá maiores problemas, mas, Se | 


tivermos que acessar a rotina várias ve- 
zes seguidas, tal como no desenho de 
um tetraedro (figura de quatro lados 
triangulares), precisaremos de um pou- 
co mais de atenção. No desenho da ba- 
se, os valores dados às variáveis de 
transformação serão iguais aos da cai- 
xa. Em compensação, a alteração das 
variáveis de transformação (linhas 270 
a 300) para obter o ângulo e posição 
correta dos outros lados constitui uma 
tarefa muito difícil. 

mais fácil mudar o programa para 
que desenhe caixas de diferentes tama- 
nhos ou figuras que não se fecham. Fa- 
ça, por exemplo, com que o valor de 
L na linha 120 varie com o tempo, al- 
terando, assim, o tamanho da caixa; 
depois, mude o valor de N na mesma 
linha. Atribuindo valores maiores a N, 
a caixa parecerá sólida. Para evitar que 
as faces da frente e de trás sejam de- 
senhadas, apague a linha 311 (que faz 
um laço sobre a caixa) e digite: 


155 GOTO 220 


mas isso complica bastante o programa. 
Vamos nos limitar, assim, ao desenho 
isométrico de uma caixa, deixando a 
perspectiva para um próximo artigo. 
Como o primeiro e o último conjuntos 
de coordenadas são bidimensionais, e 
todas as transformações são lineares (li- 
nhas retas ficam retas e linhas paralelas 
permanecem paralelas), precisaremos al- 
terar apenas as rotinas de inicialização 
e de desenho. 

Caso tenha armazenado em fita ou 
disco o programa dado no primeiro ar- 
tigo, carregue-o novamente e digite as 
linhas que vêm a seguir. É aconselhável 
gravar todas as listagens, pois, à medi- 
da que desenvolvermos o programa em 
artigos futuros, voltaremos a chamar al- 
gumas rotinas. Se você não tem o pro- 
grama gravado, digite as linhas 5000 a 
5130 do artigo anterior desta série. Elas 
compõem a rotina que desenha uma 
grade. 

Apague as linhas 150 e 155 antes de 
digitar as que se seguem, mas não rode 
o programa ainda. 


9000 LET YX=0: LET XY=0: LET YX 
=0: LET YY=1: LET X0=0: LET YO= 
lj 

9010 BORDER 4: 

CLS 

9070 RETURN 

9100 REM MOVER 

9110 PLOT XS*KX+XY*AYS+XO+127, YX 

AXS+YVYAYS+TO+/6 

9120 RETURN 

9200 REM DESENHA 

9210 DRAW XE*XX+XY*AYE+XO+12/-PE 

EK 23677, YX*KE+YY*AYE+YO+/6-PEEK 
23678 

9220 RETURN 


PAPER 7: INK O: 


9520 GOSUB 9200 
9550 RETURN 


a 


9000 CLS 

9030 XX=1 

9040 YY=1 

9070 RETURN 

9500 LINE (XS*XX+XV*YS+X0+127,YX 
*UG+YYAYS+YO+9S) - (XEARK+XYATYE+K 
0+127, YX*XE+YY*YE+TO0+95),15 
9550 RETURN 


[ed] 


9000 XX = 1:XY = 0:YX = 0:YY = 
1:X0 = 0:70 = 0 

9010  HGR HCOLOR= 3 

9070 RETURN 

9100 REM MOVE 

0108 X1 = XS * XX + XY * YS + & 
O + 127 


9109 VT] = YX * XS + YY * YES +77 
O + 76 


9110 HPLOT X1,7Y1 
9120 RETURN 
9200 REM DESENHA 


9208 X2 = XE * XX + XT * TE + 
o + 147 





209 Y2 = YX THE +TTATE+T 
O + 76 

9210 HPLOT X1,Y1 TO K2,Y2 
9220 RETURN 

9500 REM LINHA 

9510 GOSUB 9100 

9520 GOSUB 9200 

9550 RETURN 

9000 PCLS 

9030 XX=1 

9040 YY=1 


9070 RETURN 
9500 LINE (XS*XX+XY*YS+X0+127,YX 
RES+YYRYI+YO+9S) - (XEXXX+XYATE+X 





0+127, YX*XE+YYA*YE+YO+95), PSET 
9550 RETURN 


9500 REM LINHA 
9510 GOSUB 9100 





Depois, rode o programa. 


Em perspectiva, os cantos da caixa, 
são convergentes; em projeção 
isométrica, permanecem paralelos. 
As duas formas podem ser : 
representadas num sistema é 

de três coordenadas, es 





Cai 








A rotina das linhas 9000 a 9070 ini- 
cializa as variáveis de transformação 
(XX,XY,YX,XO,YO) em valores que 
fazem a rotina de desenho funcionar co- 
mo antes. No micro TRS-Color não é 
necessário inicializar variáveis, mas fazê- 
lo facilita bastante a compreensão do 
programa. 

A rotina movimenta os eixos de ma- 
neira que a origem destes esteja no cen- 
tro da tela. A origem é deslocada porque 
fica mais fácil supor que o olho do ob- 
servador está diretamente acima dela no 
centro da tela. Isso ficará mais claro no 
próximo artigo, onde veremos como 
mudar o ponto de vista e acrescentar 
perspectiva. 

Para observar o efeito de cada variá- 
vel de transformação e ter uma idéia 
mais clara do que está acontecendo, mo- 
difique as linhas 100 a 180: 


100 GOSUB 9000 
RzU CLS 











Ea, 


a 
ES rats Ee 


* 
TER 


"é 









A a 
LR 





130 LET KA=-40: LET YA=-20: 
LET LW=40: LET LH=40: LET NÃ=5 
: LET NY=5 

135 GOSUB 5000 

140 LET XA=0: LET YA=-20: LET 
LW=40: LET LH=40: LET NX=10: 
LET NY=10 


145 GOSUB 5000 

160 INPUT "INTRODUZA KX,XHY,YX, 
YY,XO, YO", HR, XY, YX,YY,XO,YO 
170 GOTO 120 

180 STOP 


ny 


100 
105 
110 


SCREEN 2:COLOR 

PI=4*ATN(1) 

GOSUB 9000 

120 CLS:SCREEN 2 
130 XA=-40:YA=-20: LW=40:LH=40:N 
*=10:NY=10 

135 GOSUB 5000 

140 KA=0:YA=-20:LW=40: LH=40:NX= 
10:NY=10 

145 GOSUB 5000 

150 AS=INKEYS:IF AS="" THEN 150 
ELSE SCREEN 0:CLS 

160 INPUTTENTRE XKX,XY,YX, YY,XO, 


15,4,4 


2 z 


Para representar uma imagem em 3-D num 
plano bidimensional, um quadrado na origem 
(1) é deslocado ao longo dos eixos X e Y 
e, com um novo deslocamento (2), forma as 
faces da frente e de trás do cubo. Para 
formar os lados, o quadrado é distorcido 
(3) na direção Y e depois deslocado (4 e 5) 
ao longo dos eixos. Da mesma maneira, 
as faces superior e inferior são obtidas 
pela distorção (6) na direção X e 
deslocamento (7 e 8) ao longo dos eixos. 








es mg 
=” 


TO CGXX,XT,YX,YY,XO,TO 
170 GoTo 120 


1 


100 GOSUB 9000 
120 HOME HGR VTAB (24) 
130 XA = -— 40:TAÃ = 20:LW = 


4O:LH = 40:NX = 5:NT = 5 


135 GOSUB 5000 

140 HA = O:VA = = 20:LW = 40:L 
H = 40:NX = 10:NY = 10 

145 GOSUB 5000 

160 INPUT "ENTRE XX,XY,YX,YY,X 
O, YO C;XX,XY,YX,YY,XO, TO 

170 GOTO 120 

1BO STOP 


100 PMODE 4:SCREEN 1,1 

105 PI=4*ATN(1) 

110 GOSUB 9000 

120 CLS: PCLS: SCREEN 1,1 

130 XA=-40:YA=-20:LW=40:LH=40:N 
K=5:NY=5 

135 GOSUB 5000 








140 XA=0:YA=-20:LW=40:LH=40:NX= 
10 :NY=10 

145 GOBUB 5000 

150 AS=INKEYS:IF A3S="" THEN 150 
160 INPUT" INTRODUZA XKX,XYT,YX,YY 
1XO, YO ";XX, XY, YX,YY,XO, TO 

170 GOTO 120 


Ao rodar O programa, você verá um 
pequeno quadrado no centro da tela, 
com uma linha pedindo que forneça no- 
vos valores para XX,XY,YX,YY,XO e 
YO (no MSX, deve-se apertar qualquer 
tecla para que a linha seja vista). Estas 
são as variáveis de transformação. 

XX e YY ajustam os fatores da esca- 
la nas direções horizontal e vertical. Se 
fornecermos valores negativos a essas 
variáveis, ocorrerá uma reflexão sobre 
o respectivo eixo. XO e YO ajustam a 
posição da grade na tela. XY e YX são 
responsáveis por rotações e distorções 
no desenho. As variáveis de transforma- 
ção têm valores iniciais XX = 1, XY=0, 
YX=0, YY=1, X0=0€eYO=0. Para 
modificar a imagem, precisaremos for- 
necer diferentes valores a essas variáveis; 
por isso, a linha 160 contém uma decla- 
ração INPUT. 

Aqui estão alguns conjuntos de valo- 
res que você pode experimentar no pro- 
grama. Forneça-os lado a lado, separa- 
dos por virgula, exatamente na ordem 
em que são pedidos, e tecle < ENTER > 
ou <RETURN> (no Spectrum, tecle 
< ENTER> após cada um): 

— 1,0,0,1,0,0: causa uma reflexão em re- 
lação ao eixo vertical na área central da 
tela. 


FORA DA TELA 
Alguns computadores não conse- 

guem desenhar pontos que estejam fo- 
ra da tela. Assim, se fornecermos a L 
um valor muito grande, o programa se- 
rá interrompido e obteremos uma men- 
sagem de erro. Não é o caso dos micros | 
da linha MSX, os quais desenham qual- 
quer seção de pontos, ignorando aque- 

| les que estiverem fora da tela. | 
Contanto que a imagem esteja inteira- 
mente na tela, os usuários de outros 
computadores não deverão ter nenhum 
tipo de problema. 

No próximo artigo, veremos como 

' fazer uma checagem no programa, de 
modo a garantir que somente linhas 
possíveis sejam desenhadas. Elimina- 
remos, assim, as interrupções por men- 

| sagens de erro. 





0.5,0,0,2,0,0: aumenta a imagem duas 
vezes na vertical e diminui pela metade 
na horizontal. 

1,0,0,1,100, — 50: move a imagem cem 
unidades para a direita e cinquenta uni- 
dades para cima (ou para baixo no caso 
do Spectrum). Usuários do Spectrum 
podem tentar 1,0,0,1,50, — 40 para uma 
mudança mais significativa. 

0, — 1,1,0,0,0: faz a imagem rodar em 90 
graus. 

1,0.5,0,1,0,0: distorce a imagem na ho- 
rizontal. 

1,0.5,0.5,1,0,0: distorce a imagem na 
horizontal e na vertical. 

Para prever O efeito de cada conjun- 
to de valores é preciso algum conheci- 
mento sobre aritmética de matrizes. 
Portanto, embora saibamos como variar 
a forma do desenho, é um pouco mais 
dificil determinar a combinação que 
produzirá uma forma em 3-D. O próxi- 
mo programa faz isso com as mesmas 
rotinas que temos usado. Apague as li- 
nhas 135, 145 e 175 do programa ante- 
rior antes de inserir esta seção: 


GOSUB 9000 

LET L=108: LET N=4 
DX=.454L: LET DY= 
XN=- (L+DX) /2 
YN=-(L+DY)/2 
XO=XN 
YO=YN 
GOSUB 500 
LET XO=KN+DX 
LET YO=YN+DY 
GOSUB 500 
LET XY=DX/L: 
LET YY=DY/L: 
GOSUB 500 
LET YO=YN+L 
GOSUB 500 
LET XX=DA/L: 
280 LET YXK=DY/L: 
YO=YN 

290 GOSUB 500 
300 LET XO=AN+L 
310 GOSUB 500 
320 STOP 

500 LET XA=0: 
=: LET LH=L: 
=N 
510 
520 


- 38L 


LET 
LET 


XO=KN 
YO=YN 


LET 
LET 


KY=0 


YY=1: LET 


LET YA=0O: 
LET NX=N: 


LET LW 
LET NY 


GOSUB 5000 
RETURN 


GOSUB 9000 
L=120:N=2 
DpX=.45*L:D7s, 
XN=- (L+DX) /2 
YN=-(L+DT)/2 
XO=KN 

TO=YN 

GOSUB 500 
O=HXN+DX 


3AL, 





TO=YN+DY 

GOSUB 500 

HY=DX/L:XO=XN 

Yy=DY/L:VYO=YN 

GOSUB 500 

YOSIN+L 

GOSUB 500 

XX=DX/L:XY=0 
TX=DY/L:YY=1:YO=YN 

GOSUB 500 

XO=AN+L 

310 GOSUR 500 

320 GOTO 320 

500 XA=0:YA-=0:LW=L:LH=L:NX=N:NY 
=N 
510 
520 


[1 
100 
EO E 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
100 


GOSUB 5000 
RETURN 


GOSUB 9000 
10B:N = 4 
as * L:DY = .3 *L 
- (L + DX) / Z 
- (+ Di) fz 
XN 
YN 
GOSUB 500 
XO = XN + DX 
200 TO = YN + DY 
GOSUB 500 
220 KY = DX / L:XO 
YY = DT / LrX0 
GOSUB 500 
250 YO = YN + L 
260  GOSUB 500 
RX = DX / L:XY 
YX = DT / L:YY 
GOSUB 500 
300 XO = XN + L 
GOSUB 500 
STOP 
S00 XA = OD:YA = 
“NX = N:NY = N 
GOSUB 5000 
RETURN 


ps 
in 

o 

HG 
= 

UH HM 


que 
a] 
[ie] 
HE 
o 
| 


nom 
E DG 
<a 


O:LW = L:LH = L 


PMODE4: SCREEN 1,1 
GOSUB 9000 
L=120:N=5 
DX=.45*L:DY=.3*L 
XN=- (L+DX) /2 
YN=- (L+DY) /2 
XO=XN 

YO=YN 

GOSUB 500 
XO=XN+DX 
YO=YN+DY 

GOSUB 500 
XY=DX/L: XO=XN 
YY=DY/L:YO=YN 
GOSUB 500 
YO="YN+L 

GOSUB 500 

270 XX=DX/L:XY=0 

280 YX=DY/L:YY=1:YO=YN 
290 GOSUB 500 

300 XO=XN+L 

310 GOBUB 500 

320 GoTo 320 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
































500 XA=0:YA=0:LW=L:LH=L:NX=N:NY 9930 LET D=COS (6*M) 
= 9940 LET S=D*COS M: LET T=D*SIN E 
510 GOSUB 5000 M 
520 RETURN 9950 LET S=8*20: LET T=ABS (T*2 100 PMODEA4:SCREEN 1,1 
Ao rodar o programa, um cubo apa- 2) | Ele = o iq abis 

recerá no centro da tela. Seus lados são 9960 PLOT STiZi, THAO6 lh 

9970 NEXT M 130 DX=.6*L:DY=.5*L 
traçados pela mesma rotina que desenha S980 RETURN 140 XN=- (L+DX) /2 
grades. Esta, com as variáveis adequa- | j 150 YN=- (L+DY) /2 
das, muda a imagem para a forma de- 160 XO=XN 
sejada. Duas outras variáveis devem ser ny 170 YO=YN 
ajustadas antes que o cubo seja traça- 180 GOSUB 500 
do: a variável L (que determina qual o 120 L=60:N=2 : da dgiiaddeço 

| iá 130 DX=.6*L:Dy=.5*L 7 - 

tamanho do lado do cubo) e a variável o LOGO O dass ShO 


N (que determina o número de quadra- “11 


- 10000 REM fata 220 XY=DX/L:XO=KN 
sos na EraCE rr | 10010 FOR M=0 TO PT STEP.02 230 YY=DY/L:YO=YN 
2“ Á variável DX especifica o quanto, 9020 D=COS(6*M) 240 GOSUB 500 
à direita ou à esquerda, a face de trás 490930 S=D*COS(M):T=DASIN (M) 250 YO=YN+L 
está da face da frente; DY define O 10040 S=SG*24:T=-ABS(T*20) 260 GOSUB 500 
quanto, acima ou abaixo, estas mesmas 10050 PSET(S+127,T+65),15 270 XX=DX/L:XY=Q 
faces estão uma da outra. DX e DY fa- 10060 NEXT 280 YX=DY/L:YY=1:YO=TN 
zem com que o cubo pareça ter largura 10130 RETURN o irpdagnão 500 
e altura iguais, não adquirindo a forma O-XN+HL | 
de aço 310 GOSUB 500 
e um paralelepipedo. | | 
ME 311 GOSUB 10000 

Um outro par de variáveis — XN na 320 GOTO 320 
linha 140 e YN na linha 150 — especifi- 1450 L=60:N =? 500 XA=0:YA=0:LW=L:LH=L:NX=N:NY 
ca a posição inicial da face da frentedo 130 Dx = .3*L:Dy=.4*L =N 
cubo. Esses valores são transferidos pa- 311 GOSUB 9920 510 GOSUB 5000 
ra XO na linha 160€e YO na linha 170. 9920 FORM = PT TOZ+*PTSTEP 520 RETURN 
Em seguida, a linha 180 desenha a face .01 Rs 10000 DRAWBM151,65" | | 
de trás. Como ambas as faces são idên- 9930 D = cos (6 4 M) | an FOR M=0 TO 4*ATN(1) STEP 
ticas, para desenhar a face da frente pre- 2940 5 = D cos (M):T = D | 
cisamos apenas de um incremento na SIN (M) AU Ra) DECORE) 

snenpsgedlhs éra m incremento Ná gosog=s*20:T= - ABS (T 10030 S=D*COS(M):T=D*SIN(M) 
direção X (linha 190) e outro na direção  « 50) 10040 S=S*24:T=ABS(T*20) 
Y (linha 200). | 9960 HPLOT S + 127,T + 46 10050 LINE-(S+127,65-T), PSET 

As linhas 220 e 230 transformam a 9970 NEXT M 10060 NEXT 
grade (XY e YX) e redefinem os valo- 9980 RETURN 10130 RETURN 





res. Depois, a linha 240 desenha a face 
de cima. A linha 250 reposiciona verti- 
calmente esse desenho para fazer a face 
de baixo, que é igual à de cima. De mo- 
do similar, as linhas 270 a 310 transfor- 
mam a grade para obter os lados direito 
e esquerdo. 

Todos os quadrados da grade têm, 
em cada lado, o mesmo formato e o 
mesmo tamanho, e todas as linhas pa- 
ralelas permanecem paralelas, já que 
não fizemos nenhuma modificação pa- 
ra o desenho em perspectiva, nem adap- 
tamos o programa para mostrar outros 
ângulos do cubo. Estes serão nossos 
próximos passos no estudo das técnicas 
de elaboração de wireframes. 

Enquanto não chegamos lá, acrescen- 
te um laço ao nosso cubo, transforman- 
do-o num pacote de presente. Para isso, 
mude as linhas 120 e 130 e, depois, adi- 
cione as linhas que se seguem. Não se 
esqueça de gravar o programa! 


120 LET L=60: LET N=2 

130 LET DX=.3*L: LET DY=.4*L 
311 GOSUB 9920 

9920 FOR M=0 TO PI STEP .0] 


a 


pn. z 
E Pa 












GR 


Já tratamos, em artigo anterior, da 
organização de dados em gráficos. Ve- 
remos agora como usar gráficos de bar- 
ras (histogramas) ou de segmentos para 
mostrar dados numéricos numa forma 
não linear. Esses dois tipos de gráfico, 
empregados com frequência na apresen- 
tação de dados estatísticos e comerciais, 
podem ser coloridos, o que os torna 
muito mais atraentes. 

O gráfico de barras é especialmente 
indicado para a organização de dados 
que flutuam bastante. O de segmentos 
é útil sobretudo quando se quer demons- 
trar como diferentes valores estão rela- 
cionados como partes de um todo. As- 
sim, para fazer a escolha mais adequa- 
da, leve em conta o tipo específico de 
dados de que dispõe. 

Os programas que se seguem mos- 
tram como empregar o microcomputa- 
dor na elaboração dos dois tipos de grá- 
fico. Devido à falta de comandos grafi- 
cos adequados no ZX-81 e no TRS5-80, 
deixamos de apresentar programas pa- 
ra essas máquinas. 





MONTAGEM DO GRÁFICO DE BARRAS 


A rotina para montar o gráfico de 
barras é essencialmente a mesma de 
qualquer outro gráfico. Uma vez de pos- 
se dos dados, é necessário entrá-los no 
computador; em seguida é preciso defi- 
nir os eixos, desenhar as barras e acres- 
centar legendas. Como vimos no artigo 
da página 481, podemos desenhar as 
barras à medida que entramos os dados 
ou entrar todos os dados previamente e 
só depois traçar o gráfico. Uma tercei- 
ra opção consiste em ler os dados por 
meio das instruções READ/DATA, 
alterando-os sempre que se quiser um 
gráfico diferente. Seja qual for o méto- 
do escolhido, convém armazenar os da- 
dos numa matriz numérica, de modo 
que o micro possa identificar as coor- 
denadas de cada barra. 


LEITURA DOS DADOS 





Digite as linhas seguintes para o com- 
putador ler os dados. Ao executá-las, 
não verá nada na tela, mas é bom rodar 





cada parte do programa para evitar er- 
ros. (No Apple ou no TK-2000, para ter 
de volta a tela de texto, digite TEXT e 
tecle RETURN.) De qualquer forma, 
você pode verificar se aconteceu algo di- 
gitando PRINT A(3), por exemplo. No- 
te que os dados já foram armazenados 
na memória do micro. 


10 LET n=12 

20 DIM atíln) 

70 FOR t=1 TO mn 

B0 READ aff) 

90 NEXT L 

DATA 3,6,5,9,6,3,6,8,3,5,9 


5 N=12 

20 DIM A(N) 

60 PMODE 3,1:PCLS:SCREEN 1,0 

70 FOR T=1 TO N 

BO READ AlT) 

90 NEXT 

3010 DATA 1,5,3,0,6,2,8,50,2,755 
40 


a 


JO N=12 

20 DIM AÍN) 

60 COLOR 10,5,5 
70 FOR T=1 TON 
B0 BREAD A(T) 

90 NEXT 

4010 DATA 1,5,6,4,7,9,4,3,8,3,9 
B 


(E) 


' SCREEN Z 


JO N = 172 
20 DIM A(N) 
60 HOME HGA 


70 FORT = 1 TON 
BO READ A(T) 
90 NEXT 

3010 DATA 
8,3,4 


2,5,3,8,6,2,0,9.7, 


Neste módulo, o programa seleciona 
o modo gráfico, determina o número de 
barras a serem traçadas — 12 (linha 10, 
ou 5, no TRS-Color) — e dimensiona a 
matriz para esse número (linha 20). 


NInpEmn DS DDD 800 rRooRAmAgROAS 50 
“BARRAS 
E 


Seja qual for a fonte de seus dados — 
orçamento doméstico, negócios e até 
hobbies —, organize-os em gráficos de 
barras ou de segmentos. Será mais 
fácil entender o que eles têm a dizer. 





Pode-se usar um número maior para 
traçar mais barras. Nesse caso, é neces- 
sário acrescentar dados à linha 3010, pa- 
ra que haja uma equivalência entre o nú- 
mero de barras e o de dados. É interes- 
sante ter um número maior de dados 
quando se está testando o programa, de 
modo que se possa aumentar ou dimi- 
nuir o número de barras sem risco de 
que ocorra um erro do tipo “falta de da- 
dos” ou end of data. 














| COMO FAZER UM HISTOGRAMA 
GRÁFICO DE BARRAS 

* TRIDIMENSIONAL 
PROGRAME UM GRÁFICO 

DE SEGMENTOS 







































A ESCALA DOS EIXOS 


O computador conhece agora o va- 
lor absoluto de cada barra. Precisamos 
informá-lo sobre como fazer a escala 
dos dados, de maneira que cada conjun- 
to deles preencha a tela de forma ade- 
quada. Caso contrário, pode-se ter nú- 
meros tão pequenos que praticamente 
não sejam vistos ou, no outro extremo, 
valores que caiam fora do intervalo pos- 
siível da tela. Para fazer a escala, digite 
as próximas linhas. Novamente nada vai 
aparecer na tela, mas execute o progra- 
ma como um teste. 


30 LET dx=239/n 
40 BEAD dy 
3000 DATA 18 


30 DX=164/N 
40 READ DY 
3000 DATA 1 


30 DX=164/N 
40 READ DY 
3000 LATA 1 


30 DX = INT (170 / N) 
40 READ DY 
3000 DATA 15 


Esta parte do programa calcula a es- 
cala do eixo X dividindo o comprimen- 
to disponível pelo número de barras (li- 
nha 30). O valor máximo de barras va- 
ria de micro para micro, mas, conhecen- 
do o tamanho de sua tela gráfica e mu- 
dando os valores de N, você identifica- 
rá facilmente o valor mais adequado pa- 
ra um gráfico legível. 

Os valores do eixo Y são multiplica- 


manho mais adequado. Esse valor não | 


dos por um fator para que tomem o ta- [E 











|| vel | ITIIII 
| | | | | | | 1 


é encontrado automaticamente, mas li- 
do (linha 40) de uma declaração DATA 
(linha 3000 ). Para cada novo conjunto 
de valores, avalie qual o melhor fator a 
ser usado e coloque-o na linha 3000. 
Nesse ponto, você pode montar uma ro- 
tina para dar entrada a tal valor a par- 
tir da linha 40 (usando INPUT). Se pre- 
ferir agir assim, não se esqueça de apa- 
gar a linha 3000. 

O restante do programa é composto 
de duas rotinas: uma que traça os eixos 
e outra que desenha as barras. Digite 
mais estas linhas, mas não as execute, 
uma vez que as rotinas chamadas ainda 
não se encontram na memória e um er- 
ro será detectado. 


100 GOSUB 1000 
140 GOSUB 2000 
160 STOP 


As linhas 100 e 140 chamam sub- 
rotinas que traçam os eixos e barras. 


100 GOSUB 1000 

110 FOR T=1 TO N 

130 X=(T-1)*DX+18:Y7=188-16*%A(T) 
*DY 

140 GOSUB 2000 

150 NEXT 

160 GOTO 160 


A linha 100 desvia o programa para 
a linha que desenha os eixos. A 110 abre 
um laço que marca o número de barras 
a serem desenhadas. A cada volta, a li- 
nha 130 ajusta a coordenada de X — 
multiplicando-a por DX e somando 18 
para deixar uma margem à esquerda — 
e a coordenada de Y — subtraindo do 
total de linhas disponíveis o valor lido 
(A(T)) multiplicado pelo fator DY (da- 
do) e pela constante 16. A linha 140 des- 
via O programa para a rotina que dese- 
nha as barras e a 150 fecha o laço, cha- 
mando o próximo valor. 


bl tco] 


100 GOSUB 1000 
110 FORT =1 TON 
130 X=(T-1) *DX+8+ A:Y 
= 150 = A(T) * DY 
140 GOSUB 2000:A = A + 3 
150 NEXT 
160 END 

A linha 100 chama a sub-rotina que 
traça os eixos. A linha 110 abre um la- 


ço que determina o número de barras a 
serem desenhadas. Em seguida, a linha 


130 determina a coordenada X para o 
ponto inicial do traçado da barra, mul- 
tiplicando T-1 por DX e somando 8 — 
para garantir uma margem à esquerda 
— € A (que provoca um avanço de uma 
barra em relação à outra — para evitar 
que as barras fiquem coladas umas às 
outras). A coordenada Y (altura da bar- 
ra) é calculada subtraindo-se do total de 
linhas disponíveis o valor lido (A(T)) pe- 
lo fator DY (que você determina). A li- 
nha 140 chama a sub-rotina que desenha 
as barras e a seguir incrementa o valor 
de A. A linha 150 fecha o laço, chaman- 
do o próximo valor a ser desenhado. 





O DESENHO DAS BARRAS 


Agora, digite as rotinas que traçam 
os eixos e desenham as barras: 


1000 PLOT 16,0: DRAW 0,170 
1020 PLOT 16,0: DRAW 235,0 
1030 RETURN 

2000 FOR a=1 TO n 

2010 LET s=16+(a-1)*dx 

2020 FOR t=s TO s+dx-4 

2030 PLOT t,O: DRAW O,ala)*dy 
2040 NEXT £ 

2100 NEXT a 

2110 RETURN 


As linhas 1000 e 1020 desenham os 
eixos, deixando uma margem de dezes- 
seis unidades à esquerda do eixo Y. Pa- 
ra desenhar as barras, a linha 2000 to- 
ma um valor de cada vez, a linha 2010 
coloca o valor na escala (*dx) e a linha 
2020 monta um laço para desenhar as 
linhas verticais que formarão a barra. 
O “'-4” no fim da linha provoca um pe- 
queno espaçamento entre as barras. As 
linhas restantes desenham as linhas que 
completam a barra e fecham os respec- 
tivos laços. 





1000 LINE(0,25)-(0,191),PSET 
1020 COLOR 3 

1030 LINE -(255,191), PSET 

1050 COLOR 2:FOR T=0 TO 10 

1060 LINE(0,191-T*166/10)-(3,19 
1-T*166/10),PSET 

1070 NEXT 

1080 RETURN 

2000 COLOR 2 

2090 LINE(X,190)-(X+DX, Y), PSET, 
BF 

2100 RETURN 


A primeira linha desta parte do pro- 
grama desenha o eixo Y, de cima até em- 


baixo, na tela. A linha 1030, por sua 
vez, se incumbe de traçar o eixo X, da 
esquerda para a direita. Observe que o 
sinal ““—'” faz com que seja traçada 
uma linha da última posição do cursor 
até a posição indicada entre parênteses. 
A linha 1050 muda a cor e abre um laço 
que executa a marcação de uma escala 
no eixo Y. 

A rotina seguinte (linhas 2000 a 2100) 
desenha um retângulo para cada barra 
e o preenche de amarelo. 
























1000 
1030 


LTNE(8,25)-(8,191),6 

LINE =(255,191),15 

1050 FOR T=0 TO 10 

1060 LINE(8,191-T*166/10)-(10,1 
91-T*166/10),15 

1070 NEXT 

1080 RETURN 

2000 COLOR 10,5,5 

2090 LINE(X,190) -(X+DX,Y),2,BF 
2100 RETURN 


A linha 1000 traça o eixo Y, deixan- 
do uma margem de oito unidades. A li- 
nha 1030 traça o eixo X. O laço das li- 
nhas 1050 a 1070 marca uma escala no 
eixo dos Y para tornar mais fácil a lei- 
tura dos dados. 

A rotina das linhas 2000 a 2100 tem 
como tarefa mudar a cor de frente para 
amarelo e desenhar um retângulo colo- 
rido para cada valor, 


io) | 


1000 HCOLOR= 3: HPLOT 5,155 TO - 


5,9 
1010 HPLOT 5,150 TO 270,150 
1020 FORT =OTOIlO 
1030 BPLOT 2,150 - T*H 143 / 1 
É TO Bi50 - Tm las 4 
1040 NEXT 
1050 RETURN 
2000 HCOLOR= 5: 
X 


FOR S = 1 TOD 


2010 BPLOT X + 58,150 TO X + 5, 
Y 

2020 
2100 


NEXT 
RETURN 


As linhas 1000 e 1010 traçam os ei- 
xos Ye X, respectivamente. As linhas 


- 1020 a 1040 formam um laço para mar- 


car uma escala no eixo Y. A rotina se- 
guinte muda a cor para azul e monta um 
laço que desenhará cada barra como 
uma sequência de linhas verticais para 


“o valor da barra. 


O gráfico de barras é bastante útil na 
apresentação de dados que flutuam muito num 
determinado período de tempo — por 
exemplo, os índices pluviométricos mensais 
no decorrer de um ano (ao lado). 

Já o gráfico de segmentos é especialmente 
indicado quando se quer mostrar como 
diferentes valores se relacionam enquanto 
partes de um todo. 


Te: | > z Te a) 
| 


TERCEIRA DIMENSÃO 


Ao executar esse programa, você ve- 
rá que a aparência do gráfico de barras 
é muito menos acadêmica e mais atraen- 
te que a dos gráficos lineares, embora 
os dois tipos sejam construídos com o 
mesmo número de dados. Mas pode-se 
melhorar ainda mais a apresentação dos 
dados com a adição de um efeito tridi- 
mensional às barras, o que dará ao de- 
senho um aspecto sólido e natural e um 
destaque especial às cores. 

Antes de entrar O novo programa, 
grave o que você já tem na memória do 
computador (para uma posterior com- 
paração). Depois, sem digitar NEW, te- 
cle as alterações que se seguem. Se você 
quiser usar os comandos de edição do 
seu micro para reduzir o trabalho de di- 
gitação, fique atento para não deixar es- 
capar pequenas diferenças que possam 
existir entre as linhas. 


Acrescente ao seu programa apenas 
algumas linhas. Veja adiante. 


= 


e E 
| | 


130 X=(T-1)*D2+18:Y=18B-16*A(T) 
"ny 

1000 LINE (0,191)-(0,25), PSET:L 
INE-(DX*.6,26-DZ), PSET 

1020 PAINT (2,100),4:COLOR 3 
1030 LINE -(255-DX*.6,191),PSET 
: LINE-(255,191-DZ),PSET 

1060 LINE (0,191-T*166/10)-(DX* 
.6,191-T*166/10-DZ), PSET 

2000 COLOR 4 

2090 LINE(X,188)-(X+DX,Y), PSET, 
BF 


50 DZ=50/ (N+1) 

115 TF A(T)=0 THEN 160 

120 D2-DX*1.9:1FDX>40THENDZ=DX+ 
15 

130 X=(T-1)*D2+18:Y=18B8-16%A(T) 
*DY 

1000 LINE(8,191)-(8,25),6: LINE 
- (B+DX*.6,26-DZ),6 

4010 LINE -LB+DXT. 6, 191-DZ),6:L 
INE -(8,191),6 

1020 PAINT (9,180),6 

1030 LINE (8,191)-(255-DX*.6,19 
kJ), 15: LINE - (255,191-DZ),15 
1040 LINE -(8+DX*.6,191-DZ),15: 
LINE -(8,191),15:PAINT (100,190 
) +15 

1050 FOR T=0 TO 10 

1060 LINE(8,191-T*166/10)-(8+DX | 
*.6,191-T*166/10-DZ),15 
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SO DZ = 50 / (MN + 1): IF D$ 2»: 5 
THEN DZ = 5 
1000 HCOLOR= 3: HPLOT 5,155 TO 


5,5 TO DX * .7,5 = DZ TO DX * 
7,150 - DZ TO 5,150 
1010 HPLOT 5,150 TO 270 - DX * 
7,150 TO 270,150 - DZ TO DX * 
7,150 - DZ 
Não execute ainda o programa, pois, 

como ele não está completo, você obte- 
rá apenas uma mensagem de erro. Di- 
gite mais estas linhas: 


1010 DRAW 4,4: DRAW 0,-17/0 
2050 PLOT 1l6+(a-l)*dx,a(a)*ay 
2060 DRAW 4,4 

2070 DEAW dx-4,0 

2075 DRAW -4,-4: DRAW 4,4 
2080 DRAW 0,-a(a)j*dy 

2090 DRAW -4,-4 


50 DZ=50/(N+1) 

115 IF A(T)=0 THEN 160 

120 D2=DX*1.4:IF DX>40 THEN DZ2= 
DX+15 

1010 LINE - (DX*.6,191-DZ), PSET: 
LINE-(0, 191), PSET 

1040 LINE -(DX*.6,191-DZ), PSET: 
LINE -(0,191), PSET:PAINT(127,18 
9), 

2010 LINE (X+DX,188)-(X+DX*1.6, 
188-DZ), PSET:LINE-(X+DK*1.6,Y-D 
Z) ,PSET 

2020 LINE -(X+DX,Y), PSET:LINE - 
(X+DX, 188) , PSET 

2030 PAINT (X+DX+2,185),4 

2040 COLOR 3 

2050 LINE (X,Y)-(X+DK*.6,Y-DZ), 
PSET:LINE-(X+DX*1.6,Y-DZ),PSET 
2060 LINE -(X+DX,Y), PSET:LINE - 
(X, 7), PSET 

2070 PAINT (X+DX/2,Y-1),3 

2080 COLOR 2 


2000 COLOR12,5,5 

2010 LINE (X+DX, 188) -(X+DX*1.6, 
188-DZ) :LINE -(X+DX*1.6,Y-DZ) 
2020 LINE -=(X+DX,Y):LINE - (X+DX 
, 188) 
2030 
2050 
LINE 
2060 
2070 
2090 


Cato 


2000 
2010 


PAINT (X+DX+2,185) 

LINE (X,Y)-(X+DX*.6, Y-DZ): 
- (X+DX*1.6,Y-DZ) 

LINE -(K+DX,Y) :LINE -(X,7) 
PAINT (X+DX/2,Y-1) 

LINE (X,188)-(X+DX,Y),3,BF 


TO DX 


FOR 5 1 
3: BPLOT À + 5 + 


HCOLOR 


No! 


DX * :72,% = DZ TO XK+ SS + DX * 
A vLS50 - DZ: HLOLOR=- 6 

2020 HPLOT X + 58,150 TO X + 8, 
yY 

2030. HPLOT 'TQX + 8 + DX * ./ 
7 - DZ: REM TO XK+I+DX* 
TT DE TO XX + 1L,T 

2040 NEXT 

2050 HPELOT TO X+S5+DKT*.?7 
190 = Di 


Você tem agora uma belíssima ima- 
gem tridimensional na tela. Como exer- 
cício, modifique os valores dos coman- 
dos de cores para selecionar aquelas que 
mais lhe agradam. Faça um registro das 
linhas que precisam ser mudadas para 
alterar a escala do gráfico, de modo que 
você tenha uma referência à mão quan- 
do for usar o programa mais tarde. Uma 
maneira simples de fazer esse registro 
consiste em utilizar linhas no programa 
com a declaração REM. Ela indica que 
seu conteúdo é exclusivamente informa- 
tivo, não devendo, portanto, ser inter- 
pretado como instrução ou comando ao 
computador. 


GRÁFICO DE SEGMENTOS 





Outra forma interessante de apresen- 
tação de dados é o gráfico de segmen- 
tos — um tipo de gráfico circular que 
requer apenas uma coordenada (coorde- 
nada polar) para cada informação, re- 
presentando por meio de um ângulo o 
tamanho de cada dado. 

Estruturalmente, o programa para 
desenhar um gráfico de segmentos é sim- 
ples. Para ver como funciona, entre e 
execute as linhas seguintes. 


10 DIM a(l2): LET n=0 

20 CLS 

40 PRINT AT 5,14;"MENU" 

50 PRINT AT 8,10;"1- Introduz 
ir dados” 

60 PRINT AT 10,10;"2-Grafico” 
70 PRINT AT 12,10;"3- Saida” 
BO LET aS=INKEYS:; IF aS<"1” 
OR ag>"3” THEN GOTO 80 

90 GOSUB VAL asS*200 


100 GOTO 20 

200 CLS : LET n=1 

210 PRINT "Item No. “i;n.: 
INPUT LINE aS: PRINT a$S: IF 


a$="" THREN RETURN 

220 LET a(n)=VAL aS: LET n=n+l 
230 IF n<l3 THEN GOTO 210 

240 LET n=n-l: RETURN 

400 TF n=0 THEN RETURN 

410 CLS : LET tt=0: FOR f=1 TO 
n: LET tt=tt+a(t): NEXT £ 

420 LET f£f=(2*PI)/tt 

430 CIRCLE 127,86,60 





440 LET a=0: FOR k=1 TO n 

450 LET m=ata (k) *É 

460 PLOT 127,86: DRAW 60*SIN m 
+160*COS m 
470 LET asm 
480 NEXT k 
490 PAUSE O: 


10 DIM A(31),P(31) 


RETURN 


15 PMODE 3,1 

20 CLS 

40 PRINT €45,"MENU” 

50 PRINT €169,"1- INTRODUZIR DA 
DOS” 

60 PRINT €6201,"2- GRAFICO" 

70 PRINT 8233,"3- SAIDA” 


BO AS=INKEYS:IF AS<"1” OR AS2>"3 
”" THEN BO 

90 ON VAL (AS) GOSUB 200,400,600 
100 GOTO 20 

200 CLS:N=0 

210 PRINT"ITEM NO. ";N+1;: INPUT 
AS:IF A$="" THEN RETURN 

220 N=N+1:A(N)=VAL (AS) 

230 IF N<31 THEN 210 

240 RETURN 

400 IF N=0 THEN RETURN 

410 PCLS:SCREEN 1,0:TT=0:FOR T= 
1 TO Nº:TT=TT+A(T) :NEXKT 

420 FOR T=1l TO N:P(T)J=A(T)*810* 
ATN(1)/TT:NEXT 

430 J=0:P(0)=-1 

440 FOR T=1l TO JN 

450 IF T=N AND N-3*INT(N/3)=1 T 
HEN COLOR 4 ELSE COLOR T-3*INT( 
T/3)+2 

460 FOR K=1 TO P(T) 

47zo X=K+.01:Y=Y+.01 

4B0 LINE (127,95)-(127+60*5SIN(K 
),95-60*COS (Y)), PSET 

490 NEXT K,T 

500 IF INKEYS="" THEN 500 

510 RETURN 

600 CLS 


yu 


10 DIM A(31),P(31) 


20 CLS 

30 LOCATE 18:PRINTOMENU” 

40 LOCATE 10,8:PRINT"I - Entrar 
dados" 

50 LOCATE 10,11:PRINT"2 - Ver q 
ráfico” 

60 LOCATE 10,14:PRINT"3 - Fim” 


80 AS=INKEYS:TF AS<"1” OR AS>"3 
” THEN 80 

90 ON VAL(AS) GOSUB 200,400,600 
L00 GOTO 20 

200 CLS:N=Q 

210 PRINT"Ttem nº ";N+1;: INPUT 
A(N+1) : TF A(N+1)=0 THEN RETURN 
220 N=N+1 

230 TF N<31 THEN 210 

240 RETURN 

400 TF N=0 THEN RETURN 

410 COLOR 15,15,15:SCREEN Z:TT= 
O:FOR T=1 TO N:TT=TT+A(T) :NEXT 
420 FOR T=1 TO N:P(T)=A(T)*810* 




















ATN(1)/TT:NEXT 


430 J=1:P(0)=-1 

d40 FOR T=1 TON 

450 IF T=NTHEN COLOR 13 ELSE J= 
J+1:COLOR J:TF J=12 THEN J=0 
460 FOR K=1 TO P(T) 

470 K=K+.0]:Y=Y+.0) 

480 LINE (127,95)-(127+60*5SIN(X 


|), 95-60*COS (Y)) 

490 NEXT:NEXT 

500 TF INKEYS=""THEN5S00 
510 RETURN 

600 CLS 

3000 DATA 8,9,10 


Col 


LO DIM A(C31),PCII) 
20 HOME 


40 HTAB 18: PRINT "MENU" 


50 HTAB 10: VTAB 10: PRINT CI] 

- ENTRAR DADOS” 

60 HTAB J0: VTAB 13: PRINT "2 
- VER GRAFICO” 

70 HTAB 10: VTAB 16: PRINT "3 
- FIM 

BO GET AS: IF AS «< CIC OR AS 2 


"34” THEN 80 


90 ON VAL (AS) GOSUB 200,400, 

600 

100 GOTO 20 

200 HOME :N = O 

210 PRINT "ITEM NO. ";N + dj: 

INPUT AS: IF AS = "" THEN RETU 

RN 

220 N = N + 1:A(N) = VAL (AS) 

230 JF N< 31 THEN 210 

240 RETURN 

400 IF N= O THEN RETURN 

410 HGR “TT = 0: FORT = 1 TO 

NºTT = TT + A(T): NEXT 

420 FORT=1TON:PCT) = ALT) 
* B10 * ATN (1) / TT: NEXT 

430 ]J = O:P(lO) = - 

440 FORT =1ATON 

480 J=J + 12: [LF J= 4 THEN J 

= 1 

455  HÇOLÓR= J: TF T=N THEN 

ECOLOR= 5 

460 FOR K = 1 TO PIT) 

40 Xx=X+H.0L:Y = Y+ 01 

480 HPLOT 127,95 TO 127 + 60 * 
SIN (X),95 - 60 * cos (7) 

490 NEXT NEXT 

500 GET AS 

510 TEXT RETURN 

600 HOME 


Ao executar o programa, um menu 
será apresentado na tela, oferecendo três 
opções: entrar dados, ver o gráfico ou 
terminar o programa. A linha 80 faz 
com que o computador espere até que 
uma tecla seja pressionada. Você pode 
pressionar qualquer uma, mas, devido 
à condição imposta pela declaração 
IF... THEN da mesma linha, somente as 
teclas 1, 2 ou 3 serão aceitas. 

Uma condição parecida faz com que 
o programa volte ao menu, caso você te- 
cle 2 sem ter nenhum dado na memó- 


ria. A tecla 3, por sua vez, termina o 
programa. É necessário o comando 
RUN para reiniciá-lo. 

No começo da execução, a escolha 
óbvia é a tecla 1, que lhe possibilita en- 
trar alguns dados. A linha 90 indica pa- 
ra qual ponto do programa a execução 
será desviada; no caso, ela irá para a li- 
nha 200. Cabe a esta linha estabelecer 
uma variável (N) para o número de da- 
dos. A entrada de dados se dá na linha 
210. Eles permanecerão armazenados 
numa matriz (A(.)), na linha 220. Esta 
matriz foi dimensionada anteriormente, 
na linha 10. 

Para entrar os dados, digite o núme- 
ro seguido de ENTER ou RETURN, A 
linha 230 verifica se o espaço reservado 
para os dados já não está preenchido. 
Se ainda há lugar, o programa volta à 
linha 210 para mais uma entrada. Não 
é obrigatório ocupar todo o espaço re- 
servado para dados. Quando você qui- 
ser encerrar a entrada de números, sim- 
plesmente tecle as instruções ENTER ou 
RETURN sem ter digitado nenhum nú- 
mero. O programa volta, então, a apre- 
sentar o menu principal, por ação da li- 
nha 210. Se, por outro lado, você preen- 
cheu todo o espaço disponível, a linha 
240 encerrará automaticamente a entra- 
da de dados. 





CONSTRUÇÃO DO GRÁFICO 


Se, agora, você pressionar 2, O pro- 
grama será desviado para a linha 400, 
encarregada de iniciar a rotina que de- 
senha o gráfico. A linha 410 lê todos os 
valores armazenados e calcula o seu to- 
tal. O restante da rotina calcula uma es- 
cala para os dados e desenha os gráfi- 
cos. Como isso é feito de maneira um 
pouco diferente para cada computador, 
a descrição será individual. Para enten- 
der melhor o funcionamento das fun- 
ções circulares no computador, veja O 
artigo da página 334. 


A linha 420 divide o círculo comple- 
to (um ângulo de 360 graus ou 2 pi ra- 
dianos) pelo valor total dos dados para 
obter um fator de escala. A linha 430 
encarrega-se de desenhar o círculo (de 
raio 60). As linhas 440 e 450 passam por 
todos os valores, calculando um subto- 
tal para cada um e multiplicando este 
valor pelo fator de escala (f). O valor en- 
contrado (m) é o valor de pontos na cir- 
cunferência do círculo. Este é dividido 
por raios desenhados pela linha 460. 


































APERFEIÇÕE OS PROGRAMAS 

Agora que você já completou e tes- 
tou os programas deste artigo, que tal 
tentar melhorar a aparência dos gráfi- 
cos desenhados na tela? Aqui vão al- 
gumas sugestões. 

Um recurso que enriquece muito o 
aspecto final de um gráfico — e que au- 
menta a sua utilidade, sobretudo quan- 
do se trata de ilustrar apresentações ou 
artigos — é a titulação. Você pode 
acrescentá-la ao programa, por meio de Ii- 
nhas DATA ou INPUT, sob três formas: 
e Rótulos para os eixos X e Y: identifi- | 
cam o valor ou nome das divisões dos | 
eixos (exemplo: os nomes dos meses 
| em um gráfico de barras). 

s Legendas: indicam o significado de 
cada barra ou “fatia” do gráfico de 
segmentos. No gráfico de barras, po- ' 
| dem ser colocadas na parte de baixo ou 
no canto superior direito; no de seg- 
mentos, devem aparecer ao lado de ca- 
da “fatia”. 
e Títulos propriamente ditos: especifi- 
cam o assunto do gráfico — por exem- 
plo, “VENDAS DA COMPANHIA X YZ. 
Resultados de 1985''. Costumam ter 
de uma a três linhas, geralmente cen- 
tradas e posicionadas na parte superior 
ou inferior da tela. 
| Também é interessante salientar 
uma barra ou segmento, deslocando- 
o ligeiramente de sua posição — como 
se uma fatia do gráfico de segmentos 
fosse retirada. Este recurso, conheci- 
do como explosão, pode ser facilmen- 
te programado nos micros que pos- 
| suem o comando CIRCLE. 



















Tot 


A linha 410 totaliza os dados da me- 
mória. Em seguida, a linha 420 passa 
por todos os dados, calculando um sub- 
total para cada um e dividindo este sub- 
total pelo total. Esses valores, já em es- 
cala, são armazenados na matriz P(.), 
que foi dimensionada na linha 10. A li- 
nha 430 define variáveis que serão utili- 
zadas na seqliência de cores. O laço 
FOR...NEXT iniciado na linha 440 es- 
colhe a cor para cada um dos segmen- 
tos do circulo, e o que começa na linha 
460 traça os raios que preencherão os 
segmentos com a cor predeterminada. A 
linha 500 faz com que o gráfico fique 
visível até que alguma tecla seja pressio- 
nada, momento em que o menu nova- 
mente é apresentado. 









Os computadores da linha ZX Spectrum 
dispõem de caracteres gráficos 

que podem ser usados dentro de um 
programa ou entrados diretamente pelo 
teclado. Aprenda a utilizá-los. 


Os micros da linha Spectrum (como 
o TK-90X) são muito versáteis do pon- 
to de vista da programação gráfica. Em 
artigos anteriores, vimos como a tela 
gráfica pode ser programada por meio 
de instruções extremamente poderosas, 
em alta resolução, tais como LINE, 
CIRCLE, PAINT etc. 

Entretanto, o Spectrum tem um re- 
curso gráfico adicional que é pouco ex- 
plorado: os caracteres gráficos de bai- 
xa resolução. Estes podem tanto ser en- 
trados diretamente pelo teclado quanto 
inseridos por intermédio da função 
CHRS, do BASIC. 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, que, teoricamente, podem variar 
entre O e 255. Cada caractere correspon- 
de, portanto, a um byte da memória de 
vídeo. Parte dessa codificação é conven- 
cionada internacionalmente pelo chama- 
do código ASCII, que vai de 32 a 126. 
Os códigos de O a 31 são normalmente 
utilizados para funções de controle do 
video, e dependem do tipo de computa- 
dor. O mesmo ocorre com os códigos de 
127 a 255. Nesta faixa, cada fabricante 
utilizou os códigos de uma maneira, ge- 
ralmente para acomodar caracteres 
gráficos. 

O Spectrum possui apenas dezesseis 
caracteres gráficos de teclado, os quais 
podem ser descritos como combinações 
dos quatro quadradinhos que formam 
um caractere (pixels maiores dos que os 
utilizados na programação gráfica de al- 
ta resolução). A matriz básica de um ca- 
ractere gráfico é: 


“Colorindo” individualmente os 
quadradinhos, em todas as combinações 








possíveis, obtemos os diferentes gráfi- 
cos. Por exemplo: 


7 





O caractere gráfico com o código 128 
é um espaço em branco, o que não o tor- 
na menos necessário. Como os demais 
caracteres, ele pode ser invertido e co- 
lorido com INK e PAPER. 


GRÁFICOS DA ROM 





Os caracteres gráficos são também 
conhecidos como gráficos da ROM, pois 
já vêm pré-programados., No Spectrum, 
eles ocupam a faixa da tabela de carac- 
teres que vai de 128 a 143 e, em geral, 
são utilizados para a elaboração de de- 
senhos em baixa resolução ou para a 
composição de bordas e outros tipos de 
linhas retas. Na formatação de tabelas 
ou formulários de entrada — seu empre- 
go mais frequente — apresentam a van- 
tagem de não complicar a programação, 
misturando tela gráfica com texto. Pos- 
sibilitam, dessa maneira, O uso de co- 
mandos bem mais simples, como 
PRINT AT e TAB. 

Outra vantagem dos caracteres grá- 
ficos pré-programados é que eles se 
comportam exatamente como qualquer 
caractere alfanumérico, para fins de im- 
pressão na tela. Assim, valem para eles 
os comandos INK, INVERSE e PA- 
PER, quando se quer mudar as cores de 
frente e fundo. É divertido tentar com- 
por desenhos de baixa resolução, usan- 
do os três comandos acima menciona- 
dos e os caracteres gráficos. E, não ha- 
vendo necessidade de alta resolução, se- 
rá sempre mais fácil desenhar com eles 
do que com os comandos gráficos. 


ENTRADA PELO TECLADO 


Da mesma forma que os caracteres 
convencionais do ASCII, os caracteres 
gráficos podem ser digitados pelo tecla- 
do. Para isso, pressione simultaneamen- 
te as teclas <CAPS LOCK> e <9> 
(a tecla 9 é identificada pelo rótulo 
GRAPH, na parte de cima). Desse mo- 


GRÁFICOS DA ROM 
NO SPECTRUM (1) 


[rd "O QUE SÃO CARACTERES 
GRÁFICOS PRÊ-PROGRAMADOS 

E COMO ENTRAR CARACTERES 
GRÁFICOS PELO TECLADO 

DO MICRO 


«do, coloca-se o teclado em modo gráfi- 
co, o que é indicado na tela pelo apare- 
cimento do cursor com a letra G. Em se- 
guida, pressione simultaneamente a te- 
cla <SHIFT > e uma das teclas numé- 
ricas (de 1 a 8). Você obterá, então, um 
dos simbolos gráficos marcados nas res- 
pectivas telas. Se não acionarmos O 
<SHIFT>, aparecerão os símbolos 
gráficos complementares, ou invertidos, 
em relação aos marcados nas teclas. 
Com isso, teremos acesso aos caracte- 
res desejados, que aparecerão direta- 
mente na tela — por exemplo, dentro de 
uma cadeia alfanumérica. 

Quando terminar de digitar os carac- 
teres gráficos em uma linha, pressione 
novamente <CAPS LOCK> e <95>, 
para sair do modo gráfico. 

O programa seguinte desenha uma 
tabela simples, usando blocos gráficos. 
Depois, coloca os nomes digitados pelo 
usuário nas linhas da tabela. 


200 
210 
220 
230 
240 
250 
260 
270 
280 
285 
290 
300 
310 
320 





e 
FOR i=1 TO 10 

PRINT AT 19,0;"NOME:" 
INPUT ng 

PRINT AT 1+3,4;1 

PRINT AT 1+3,10;nS 

NEXT 1 


Nas linhas 220 e 250, os espaços em 
branco e as letras podem ser digitados 
normalmente, sem ser necessário sair do 
modo gráfico. Nesse caso, as letras apa- 
recerão apenas em maiúsculo. Para apa- 
recerem em minúsculo, será preciso 
“desligar” o modo gráfico. 

Existem duas desvantagens na entra- 
da de caracteres gráficos pelo teclado: 
primeiro, nem todos os simbolos dispo- 
níveis estão marcados nas teclas, o que 
torna o processo mais trabalhoso e su- 
jeito a erros; segundo, o programa não 
pode ser listado em uma impressora não 
gráfica, ou que não seja própria para o 
Spectrum. 

No próximo artigo desta série, vere- 
mos como utilizar caracteres gráficos 
dentro de programas. 











LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





A | E E 
a É 
É a 


PROGRAMAÇÃO BASIC 
Você já teve um primeiro contato com os caracteres gráficos do TRS-80. 
Aprenda a utilizá-los em desenhos mais complexos. 


PERIFÉRICOS 


Veja como fazer o melhor uso de sua impressora. 


PROGRAMAÇÃO BASIC 


No micro, as leis da perspectiva podem ser aplicadas por meio 
de apenas algumas teclas. Saiba como. 


PROGRAMAÇÃO DE JOGOS 


Simulador de vôo: complete seu programa. 


CÓDIGO DE MÁQUINA 


Crie na tela um relógio digital. 





